home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  55 lines
  1. 100 rem * basic-corner  c 64
  2. 110 rem * highscore-liste
  3. 120 rem * nikolaus heusler (8.93)
  4. 130 rem * zwengauerweg 18
  5. 140 rem * 81479 muenchen
  6. 150 :
  7. 160 rem -- version 1: ewige bestenliste --
  8. 200 :
  9. 210 dimna$(15),pu(15):printchr$(147):rem bildschirm loeschen
  10. 220 fori=1to15:na$(i)="(leer)":pu(i)=32-i*2:next
  11. 230 print:print"liste von diskette laden? [j/n]
  12. 240 [161]a$:[139]a$[178]"n"[167]310
  13. 250 [139]a$[179][177]"j"[167]240
  14. 260 [153]:[153]"liste wird geladen
  15. 270 open1,8,2,"bestenliste,s,r
  16. 280 [129]i[178]1[164]15:[132]1,na$(i),pu(i):[130]
  17. 290 [160]1
  18. 300 :
  19. 310 [153]:[153]"hier ist die bestenliste:
  20. 320 print:fori=1to15
  21. 330 a$=right$(str$(i),2):print"platz "a$": "na$(i);
  22. 340 printleft$(" .....................",23-len(na$(i)));
  23. 350 printright$("      "+str$(pu(i)),6)
  24. 360 next
  25. 400 :
  26. 410 print
  27. 420 print"bitte 'stop' eingeben, um zu beenden
  28. 430 [133]"ihr vorname";na$
  29. 440 [139]na$[178]"stop"[167]810
  30. 450 [133]"ergebnis (punkte)";pu
  31. 600 :
  32. 610 [129]i[178]1[164]15
  33. 620 [139]pu[177]pu(i)[167]710
  34. 630 [130]
  35. 640 [153]:[153]"es hat leider nicht fuer einen platz
  36. 650 print"in der bestenliste gereicht!
  37. 660 [137]310
  38. 700 :
  39. 710 k[178]15
  40. 720 [139]k[178]i[167]740
  41. 730 pu(k)[178]pu(k[171]1):na$(k)[178]na$(k[171]1):k[178]k[171]1:[137]720
  42. 740 pu(k)[178]pu:na$(k)[178]na$
  43. 750 [153]:[153]"sie stehen jetzt auf platz"i"der":[153]"bestenliste!
  44. 760 goto310
  45. 800 :
  46. 810 print:print"der vorgang wurde auf ihren wunsch":print"abgebrochen.
  47. 820 [153]:[153]"bestenliste auf diskette speichern? j/n
  48. 830 geta$:ifa$="n"thenend
  49. 840 ifa$<>"j"then830
  50. 850 print:print"liste wird gespeichert
  51. 860 [159]15,8,15,"s:bestenliste":[160]15
  52. 870 [159]3,8,2,"bestenliste,s,w
  53. 880 fori=1to15:print#3,na$(i):print#3,pu(i):next
  54. 890 close3:end
  55.